/********************************************************
*                   MDBS CALL INTERFACE			*
*							*
*	THE FOLLOWING ARE THE CALL INTERFACE ROUTINES	*
*  FOR THE PARTICULAR FUNCTIONS OF MDBS.  EACH ROUTINE  *
*  INTERFACES TO THE COMMON ASSEMBLER ROUTINE 'MDBSCL'. *
********************************************************/


/* * *  SET CURRENT OWNER BASED ON CURRENT MEMBER  * * */
SOM:	 PROC (SETNAM1,SETNAM2,RTNCOD);
	DCL MDBSCL ENTRY(BIN(7),CHAR(8),CHAR(8),CHAR(8),BIN(7),POINTER,
			 BIN(15));
	DCL RTNCOD BIN(7);	/* RETURN CODE FROM MDBS CALL */
	DCL SETNAM1 CHAR(8);	/* SET NAME OF CURRENT OWNER */
	DCL SETNAM2 CHAR(8);	/* SET NAME OF CURRENT MEMBER */
	DCL NULPTR POINTER;	/* DUMMY VARIABLES */
	DCL NULCHR CHAR(8);
	CALL MDBSCL(56,'',SETNAM1,SETNAM2,RTNCOD,NULPTR,0);
	END SOM;


/********************************************************
*               END OF MDBS CALL INTERFACE		*
********************************************************/
